home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / iv.dir / 00010_sound scripts.ls < prev    next >
Encoding:
Text File  |  1996-04-19  |  1.3 KB  |  67 lines
  1. on SoundAdjust
  2.   global givState, givDebug
  3.   set H to the mouseH
  4.   set executeOnce to 1
  5.   repeat while the mouseDown or executeOnce
  6.     if executeOnce then
  7.       set executeOnce to 0
  8.     else
  9.       set H to the mouseH
  10.     end if
  11.     if H < 32 then
  12.       SetSoundCast(0)
  13.       SetSound(givState, 0)
  14.       next repeat
  15.     end if
  16.     if H < 44 then
  17.       SetSoundCast(1)
  18.       SetSound(givState, 1)
  19.       next repeat
  20.     end if
  21.     if H < 54 then
  22.       SetSoundCast(2)
  23.       SetSound(givState, 2)
  24.       next repeat
  25.     end if
  26.     if H < 66 then
  27.       SetSoundCast(3)
  28.       SetSound(givState, 3)
  29.       next repeat
  30.     end if
  31.     if H < 76 then
  32.       SetSoundCast(4)
  33.       SetSound(givState, 4)
  34.       next repeat
  35.     end if
  36.     if H < 87 then
  37.       SetSoundCast(5)
  38.       SetSound(givState, 5)
  39.       next repeat
  40.     end if
  41.     if H < 98 then
  42.       SetSoundCast(6)
  43.       SetSound(givState, 6)
  44.       next repeat
  45.     end if
  46.     if H < 112 then
  47.       SetSoundCast(7)
  48.       SetSound(givState, 7)
  49.       next repeat
  50.     end if
  51.     if H < 122 then
  52.       SetSoundCast(8)
  53.       SetSound(givState, 8)
  54.       next repeat
  55.     end if
  56.     SetSoundCast(9)
  57.     SetSound(givState, 9)
  58.   end repeat
  59. end
  60.  
  61. on SetSoundCast val
  62.   global givSOUNDINDICATORSPRITE
  63.   set the castNum of sprite givSOUNDINDICATORSPRITE to 1220 + val
  64.   SetVolume(val + 1)
  65.   updateStage()
  66. end
  67.